Comment.

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 4db2762e86a8485a8a7586a851cd3f8967e1c7bc..08bdea78d765c0282e707837b81156b4fb58a914 100644 (file)
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -39,8 +39,6 @@
 
 ;;; Code:
 
-(defvar date)
-
 (require 'calendar)
 
 (defun french-calendar-accents ()
@@ -246,6 +244,9 @@ Echo French Revolutionary date unless NOECHO is t."
                        (calendar-absolute-from-french date)))
   (or noecho (calendar-print-french-date)))
 
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
 (defun diary-french-date ()
   "French calendar equivalent of date diary entry."
   (let ((f (calendar-french-date-string date)))